Shiny Dashboard

library(shiny)
library(shiny.semantic)
library(leaflet)

map <- leaflet(data=census1) %>%
  addTiles() %>%  
  addMarkers(lng=~long, lat=~lat, popup= ~hectare,clusterOptions = markerClusterOptions())
map

library(formattable)
datatable(head(census1), filter = "top",escape = FALSE,
               options = list(scrollX = TRUE),
               rownames = FALSE)

plot2 <- plot_ly(census1, x = ~lat,  color=~hectare) %>%
      add_lines(y = ~long) 

plot2